/* bmwurpa1.i - WHERE-USED REPORT (INCLUDE FILE)                              */
/* Copyright 1986-2003 QAD Inc., Carpinteria, CA, USA.                        */
/* All rights reserved worldwide.  This is an unpublished work.               */
/* $Revision: 1.12.1.2 $                                                          */
/*V8:ConvertMode=Report                                                       */
/* REVISION: 7.2      LAST MODIFIED: 11/02/92   BY: pma *G265*                */
/* REVISION: 7.3      LAST MODIFIED: 06/06/96   BY: jym *G1XL*                */
/* REVISION: 7.3      LAST MODIFIED: 07/10/96   BY: *G1ZQ*  Russ Witt         */
/* REVISION: 8.6E     LAST MODIFIED: 02/23/98   BY: *L007* A. Rahane          */
/* REVISION: 8.6E     LAST MODIFIED: 10/04/98   BY: *J314* Alfred Tan         */
/* REVISION: 8.6E     LAST MODIFIED: 08/03/99   BY: *J3J4* Jyoti Thatte       */
/* REVISION: 9.1      LAST MODIFIED: 03/24/00   BY: *N08T* Annasaheb Rahane   */
/* REVISION: 9.1      LAST MODIFIED: 08/11/00   BY: *N0KK* jyn                */
/* Old ECO marker removed, but no ECO header exists *F0PN*                    */
/* Revision: 1.10  BY: Jean Miller DATE: 05/25/02 ECO: *P076* */
/* Revision: 1.12.1.1   BY: Paul Donnelly (SB)   DATE: 06/26/03 ECO: *Q00B* */
/* $Revision: 1.12.1.2 $    BY: Jason Zhang          DATE: 10/14/08 ECO: *KYA4* */
/*-Revision end---------------------------------------------------------------*/

/******************************************************************************/
/* All patch markers and commented out code have been removed from the source */
/* code below. For all future modifications to this file, any code which is   */
/* no longer required should be deleted and no in-line patch markers should   */
/* be added.  The ECO marker should only be included in the Revision History. */
/******************************************************************************/

do with frame {&frame}:

   /* SET EXTERNAL LABELS */

   setFrameLabels(frame {&frame}:handle).

   if {&down} = "" then down 1 with frame {&frame}.

   display
      {&level}
      {&comp}
      {&ref}
      {&desc1}
      {&qtyper}
      {&um}
      {&phantom}
      {&pscode}
      {&isspol}
      {&start}
      {&end}
      {&scrap}
      {&offset}
   with frame {&frame}.

   if transtype = "FM" then do with frame fm:
      /* SET EXTERNAL LABELS */
      setFrameLabels(frame fm:handle).
      display
         {&qtytype}
         {&batch}.
   end.

   if available bom_mstr and
      not(can-find (first pt_mstr  where pt_mstr.pt_domain = global_domain and
      pt_part = bom_parent))
   then
      display "BOM" @ phantom with frame {&frame}.

   if transtype = "FM" then do with frame fm:
/*KYA4*/ if {&altitem} > "" then do:
/*KYA4*/    down 1.
/*KYA4*/    display getTermLabel("ALT_NUMBER",8) + ": " + {&altitem} @ ps_par.
/*KYA4*/ end.
      if {&line1} <> "" then do:
         down 1.
         display {&line1} @ ps_par.
      end.
      if {&line2} <> "" then do:
         down 1.
         display {&line2} @ ps_par.
      end.
   end.

   if transtype = "BM" then do with frame bm:

      /* SET EXTERNAL LABELS */
      setFrameLabels(frame bm:handle).

/*KYA4*/ if {&altitem} <> "" or {&line2} <> "":U then
/*KYA4*/    down 1.
/*KYA4*/ if {&altitem} <> "" then
/*KYA4*/    display {&altitem} @ ps_par.

      if {&line2} <> "" then do:
/*KYA4     down 1.*/
         display {&line2} @ desc1.
      end.

   end.

   down 1.

end.
